home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / libxmpl.dir < prev    next >
File List  |  1993-02-18  |  1KB  |  85 lines
  1. %%HP: T(3);
  2. DIR
  3.   SETUP
  4.     \<<    CLLCD
  5.  
  6.     "Creating:\010Workspace" 1 DISP
  7.     VARS
  8.     '\Gt' DUP CRDIR EVAL
  9.     LIST\-> 2 SWAP
  10.     START
  11.         DUP RCL SWAP STO
  12.     NEXT
  13.     DROP
  14.  
  15.     "Variables" 2 DISP
  16.     MCFG
  17.     MD\->L 'ld\->' STO
  18.     ML\->D '\->ld' STO
  19.  
  20.     "Library" 2 DISP
  21.     D\->LIB
  22.  
  23.     "Cleanup\010\010\010\010" 1 DISP
  24.     UPDIR '\Gt' PGDIR
  25.     UPDIR
  26.  
  27.     "Installing library" 1 DISP
  28.     IFERR :0: 888 PGLIB THEN
  29.         DROP
  30.     END
  31.     0 STLIB
  32.  
  33.     "Creating info" 1 DISP
  34.     :0: 888 RLIB
  35.     888 LIBp
  36.     888 MENU
  37.  
  38.     "Press 'Write',\010then 'Read' \031\010" 1 DISP
  39.     1 FREEZE
  40.     \>>
  41.  
  42.   $ROMID   888
  43.  
  44.   $TITLE   "abcdef:0.0\169xyz'93"
  45.  
  46.   $VISIBLE
  47.   {    Read Write
  48.   }
  49.  
  50.   $MESSAGE
  51.   {    "Can't find MYpar"
  52.     "MYpar is invalid"
  53.     "Canceled"
  54.   }
  55.  
  56.   Read
  57.     \<<    IFERR 'MYpar' RCL THEN
  58.         DROP # 37801h DOERR
  59.     END
  60.     IFERR ld\-> THEN
  61.         DROP # 37802h DOERR
  62.     END
  63.     LIST\-> DROP
  64.     CLLCD 1 DISP
  65.     3 FREEZE
  66.     \>>
  67.  
  68.   Write
  69.     \<<    "Edit your text:"
  70.     { 0 \Ga }
  71.     IFERR
  72.         'MYpar' RCL ld\->
  73.         LIST\-> DROP
  74.     THEN
  75.         DROP "8-) 3-) |-} ;-\254"
  76.     END
  77.     +
  78.     IFERR INPUT THEN
  79.         DROP2 # 37803h DOERR
  80.     END
  81.     1 \->LIST \->ld
  82.     'MYpar' STO
  83.     \>>
  84. END
  85.